
 'Macro pour grer les fichiers Excel contenu dans un dossier : les ouvrir, rcuprer l'information dsire et la copier dans un nouveau fichier Excel "bilan"

Dim i, Signaux, Intensite, Nombre, PositionPremChiffre, NbChiffre, NumCaractere, PremFichier, NbFeuil As Integer
Dim NomFichier, Chemin, Nom, NomAbrege, Caractere, Nombres, PreCaractere, File_Is As String
Dim NomChemFichier As Variant
Dim Fso As Object
Dim x As Boolean

 'Crer le fichier bilan sur le bureau
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jerome\Bureau\bilan manip.xls"

Cells(1, 1).Value = "Nom de Fichier"
Cells(1, 2).Value = " Nombre de signaux"
Cells(1, 3).Value = "Intensit des signaux"


 'Rcuprer le chemin et le nom des fichiers  ouvrir
Application.Dialogs(xlDialogOpen).Show
Nom = ActiveWorkbook.Name
Chemin = ActiveWorkbook.Path
NomAbrege = Left$(Nom, Len(Nom) - 14)
ActiveWorkbook.Close savechanges:=False

i = 1
File_Is = Dir(Chemin + "\*.XLS")
    Do Until File_Is = ""
        Workbooks.Open Filename:=Chemin + "\" + File_Is
        
        'Trier nombre de Dapi (dernire cellules active colonne A)
        NbFeuil = Worksheets.Count
            ActiveWorkbook.Worksheets(ActiveSheet.Index).Select
                Range("A65536").End(xlUp).Select
                If ActiveCell <> "" Or i > 0 Then
                    Nombre = ActiveCell.Value
                Else
                    Nombre = 0
                End If

        'Trier intensit (dernire cellule active colonne E)
           ActiveWorkbook.Worksheets(ActiveSheet.Index).Select
                Range("E65536").End(xlUp).Select
               If ActiveCell <> "" And i > 0 Then
                    Intensite = ActiveCell.Value
                Else
                    Intensite = 0
                End If

        'Trier " Zone libre " pour augmenter le nombre de paramtre


         'Transfert des donnes slectionnes sur la nouvelle feuille
        
        ActiveWorkbook.Close savechanges:=False
        
        Windows("bilan manip.xls").Activate
        Sheets.Item(1).Select
        Sheets.Item(1).Cells(i + 1, 1).Value = File_Is
        Sheets.Item(1).Cells(i + 1, 2).Value = Nombre
        Sheets.Item(1).Cells(i + 1, 3).Value = Intensite

        File_Is = Dir
        i = i + 1
    Loop

End Sub
